home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M16.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  4KB  |  196 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Goto LABEL001
  38.     End
  39.     If (0 == 0) STRING001 = "NO"
  40.     If (0 == 1) STRING001 = "YES"
  41.  
  42.     EndFunc
  43.  
  44.     :LABEL001
  45.     DOpen 1, PPEPath() + "VRS.DBF", 0
  46.     INTEGER006 = DRecCount(1) - 1
  47.     DTop 1
  48.     DGet 1, "BLT_PATH", STRING008
  49.     DClose 1
  50.     INTEGER007 = 0
  51.     STRING003 = PPEPath()
  52.     INTEGER004 = Len(STRING003)
  53.     STRING003 = Left(STRING003, INTEGER004 - 1)
  54.     FCreate 3, "SORT.BAT", 2, 0
  55.     FPutLn 3, "@ECHO OFF"
  56.     FPutLn 3, String(PPEPath()) + "VRSORT.COM /R " + String(PPEPath()) + String(PcbNode()) + ".TMP " + String(PPEPath()) + String(PcbNode()) + ".SRT"
  57.     FClose 3
  58.     FOpen 1, PPEPath() + String(PcbNode()) + ".TMP", 2, 0
  59.     Cls
  60.     If (Exist(STRING008)) Then
  61.         PrintLn "@X40┌─────────────────────────────────────────────────────────────────────────────@X4C┐@X0F"
  62.         PrintLn "@X40│ @X4EDeleting old VRS.BLT - Please wait...                                       @X4C│@X0F"
  63.         PrintLn "@X40└@X4C─────────────────────────────────────────────────────────────────────────────┘@X0F"
  64.         Delete STRING008
  65.     Endif
  66.     PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  67.     PrintLn "@X10│ @X1ECreating new VRS.BLT - Please wait...                                       @X19│@X0F"
  68.     PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
  69.     FOpen 2, STRING008, 2, 0
  70.     DOpen 0, PPEPath() + "USER.DBF", 0
  71.     INTEGER006 = DRecCount(0) - 1
  72.     DTop 0
  73.     :LABEL002
  74.     If (DEof(0)) Goto LABEL004
  75.     DGet 0, "HANDLE", STRING002
  76.     DGet 0, "KILLS", INTEGER001
  77.     DGet 0, "EXP", INTEGER002
  78.     DSkip 0, 1
  79.     If (Left(STRING002, 10) == "USER ALIAS") Goto LABEL003
  80.     FPutPad 1, Trim(INTEGER002, " "), 15
  81.     FPutPad 1, Trim(STRING002, " "), 25
  82.     FPutPad 1, Trim(INTEGER001, " "), 6
  83.     FPutLn 1
  84.     :LABEL003
  85.     Goto LABEL002
  86.     :LABEL004
  87.     FClose 1
  88.     Shell 1, INTEGER003, "SORT.BAT", ""
  89.     Delete "SORT.BAT"
  90.     Delete PPEPath() + String(PcbNode()) + ".TMP"
  91.     FPutLn 2, "@CLS@"
  92.     FPutLn 2, "                       @X0C▄   ▄@X0F"
  93.     FPutLn 2, "                       @X0C ▀▄▀@X0C @X0Airtual Reality Soldier@X0F"
  94.     FPutLn 2, "                       @X04───────────────────────────@X0F"
  95.     FPutLn 2
  96.     FPutLn 2, "                        @X0AMost Experienced Players "
  97.     FPutLn 2
  98.     FPutLn 2, "              @X0CExperience     @X0BPlayer                   @X0EKills"
  99.     FPutLn 2, "              @X05─────────────────────────────────────────────"
  100.     For INTEGER005 = 1 To INTEGER006
  101.         STRING004 = ReadLine(PPEPath() + String(PcbNode()) + ".SRT", INTEGER005)
  102.         STRING005 = Left(Trim(Left(STRING004, 15), " ") + "@X09······························", 19)
  103.         STRING005 = Left(STRING005, 19)
  104.         STRING006 = Left(Trim(Mid(STRING004, 16, 29), " ") + "@X09····························", 29)
  105.         STRING006 = Left(STRING006, 29)
  106.         STRING007 = Left(Trim(Right(STRING004, 6), " ") + "@X09····························", 9)
  107.         STRING007 = Left(STRING007, 9)
  108.         If (INTEGER007 == 0) FPutLn 2, "@POS:15@@X8C", STRING005, "@POS:30@@X8B", STRING006, "@POS:49@@X8E", STRING007, "@X0F"
  109.         If (INTEGER007 >= 1) FPutLn 2, "@POS:15@@X0C", STRING005, "@POS:30@@X0B", STRING006, "@POS:49@@X0E", STRING007
  110.         Inc INTEGER007
  111.     Next
  112.     FPutLn 2
  113.     FPutLn 2, "@POS:15@@X0EGenerated by VRS BLT Generator on @X0A", Date(), "@X0F"
  114.     Delete PPEPath() + String(PcbNode()) + ".SRT"
  115.     FClose 2
  116.     PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  117.     PrintLn "@X10│ @X1ANew VRS.BLT created.  Go play the game!                                     @X19│@X0F"
  118.     PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X0F"
  119.     End
  120.  
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Usage report (before postprocessing)
  124. ;
  125. ; ■ Statements used :
  126. ;
  127. ;    2       End
  128. ;    1       Cls
  129. ;    7       Goto 
  130. ;    17      Let 
  131. ;    9       PrintLn 
  132. ;    8       If 
  133. ;    1       FCreate 
  134. ;    2       FOpen 
  135. ;    3       FClose 
  136. ;    16      FPutLn 
  137. ;    3       FPutPad 
  138. ;    4       Delete 
  139. ;    1       Inc 
  140. ;    1       Shell 
  141. ;    1       EndFunc
  142. ;    2       DOpen 
  143. ;    1       DClose 
  144. ;    2       DTop 
  145. ;    1       DSkip 
  146. ;    4       DGet 
  147. ;
  148. ;
  149. ; ■ Functions used :
  150. ;
  151. ;    21      +
  152. ;    3       -
  153. ;    4       ==
  154. ;    1       <
  155. ;    1       <=
  156. ;    3       >=
  157. ;    3       !
  158. ;    2       &&
  159. ;    1       ||
  160. ;    1       Len(
  161. ;    1       Mid()
  162. ;    9       Left()
  163. ;    1       Right()
  164. ;    6       Trim()
  165. ;    1       Date()
  166. ;    9       String()
  167. ;    10      PPEPath()
  168. ;    6       PcbNode()
  169. ;    1       ReadLine()
  170. ;    1       Exist()
  171. ;    1       DEof()
  172. ;    2       DRecCount()
  173. ;
  174. ;------------------------------------------------------------------------------
  175. ;
  176. ; Analysis flags : S
  177. ;
  178. ; S - Shell to DOS ■ 5
  179. ;     This may be normal if the PPE need to execute an external command,
  180. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  181. ;     or usefull (sorting, maintenance,...). Check!
  182. ;     ■ Search for : SHELL
  183. ;
  184. ;------------------------------------------------------------------------------
  185. ;
  186. ; Postprocessing report
  187. ;
  188. ;    1       For/Next
  189. ;    0       While/EndWhile
  190. ;    1       If/Then or If/Then/Else
  191. ;    0       Select Case
  192. ;
  193. ;------------------------------------------------------------------------------
  194. ;                 AEGiS Corp - Break the routines, code against the machines!
  195. ;------------------------------------------------------------------------------
  196.